`recessive.WGassociation` <-
function(o)
{
  attr(o,"pvalues")[,"recessive"]
}

